Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    
    ActiveWindow.ScrollRow = ActiveCell.Row

End Sub